home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_d
/
isamexpt.zip
/
U_DBTOOL.INT
< prev
next >
Wrap
Text File
|
1996-04-05
|
2KB
|
47 lines
unit U_dbtool;
interface
Uses DBITypes, DBTables, DBIProcs, DBIErrs, Forms, DB;
const
FindFirst = 0;
FindLast = 1;
FindNext = 2;
FindPrev = 3;
PrimaerSchluesselName: String = '';
Type
Structure_GetProc = Procedure(var TDesc: crTblDesc; FNummer: Byte; var Fld: FldDesc);
Procedure Check_Alias(Aliasname,Pfad: String);
{will create an IDAPI-ALIAS to the given path.}
Function Erzeuge_Tabelle(aParent : TForm;
Database: TDatabase;
FileName: String;
StruGet : Structure_GetProc): Boolean;
{creates a DBASE-TABLE or a PARADOX-TABLE, STRUGET will be
created by the Expert in STRUCTURE-Unit}
Function Kopiere_Daten(aParent : TForm;
Table1 : TTable;
Table2 : TTable;
Database: TDataBase;
FileName: String;
StruGet : Structure_GetProc): Boolean;
{will copy data from one DBASE-Table to the other,
works safer that BATCHMOVE}
Function Kopiere_Struktur(aParent: TForm;
Table1: TTable;
Table2: TTable;
NeuName: String): Boolean;
{will copy the structure of one DBASE-Table to a new
table. Tablename of new table is NEUNAME}
Function Verify_Tabelle(Table: TTable; StruGet : Structure_GetProc): Boolean;
{will start TUTILITY.DLL to check the integrity of a PARADOX-Table}
implementation